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Abstract of JP2001028720 

PROBLEM TO BE SOLVED: To provide a 
method for exhibiting a caption in a television 
program with a caption that is employed for a 
caption program reception system that can 
realize a caption presentation form that is 
easily read and understandable by a viewer. 
SOLUTION: The method is configured such 
that a television video image is compressed 
vertically and horizontally, a master video 
image after the compression is moved 
vertically and horizontally, an idle area of an 
arch shape that extends three adjacent sides 
in a circumference area on a video display 
screen 1 1 is utilized for an arch shaped 
caption display area 15 and one line of 
captions are totally exhibited on this arch 
shaped caption display area 15 so as to totally 
display unit captions collecting the number of 
characters of a degree or over for a 
comparatively long time depending on the 
number of the characters while suppressing a 
compression rate of the master video image to 
he utmost. 
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'Windows API (J) LOG FONT 3 
Public Const LF.FACLSIZE = 32 
Type LOGFONT 



IfHeight As Long: IfWidth As long: 

ffOrientation As long: IfWeight As Long: 
ffllnderline As Byte: IfStrikcOut As Uyte: 



IfEscapement As Long 
Hltalic As Byte 
IfCharSet As Byte 



IfOulPrecision As Byte: ICClipPrecision As Byte: IfQuality As Byte 
HPitchAndFamily As Byte: IfFaceName As String * Li-.FACESIZE 

End Type 

'DeleleObject API fcE^S 

Declare Function DeleteObject Lib "GUI32~ (ByVal hObject As Integer) As Integer 
'CreateFontlndirect API Srg^f & 

Declare Function CreateFontlndirect Lib "GDI32" Alias "CreateFontlndirectA" (tpLogFont As 
LOGFONT) As Long 
'SelectObject API •ffgtS 

Declare Function SelectObject Ub "GD132" (3yVal hDC As Integer. ByVal hObject As Integer) 
As Integer 

TextOut API £^mt$ 

Declare Function TexlOut Ub "GD132" Alias "TextOulA" (ByVal hDC As Long, ByVal X As 
Long, ByVal Y As Long, ByVal IpString As String, ByVal nCount As Long) As Long 

'CFONT l*x**hE<7>:7*>M*£# 
Dim CFONT As LOGFONT 

'ESCAPE \*&7jk7*l'hOm&0> ESCAPEMENT tn^t 
Dim escape As Integer 

'Change* t ChangeY Its T"^XhC02c±W^CD&ft<7)18»*qS-r 
Dim ChangeX As Integer 
Dim ChangeY As Integer 

CFONT.IfHeight = 30:CFONT.IfWidth = 10:CFONT.IfWoight = 400 
CFONT.Ifltalic = 0:CFONT.lfUnderiitie - 0:CFONT.IfStrikeOut = 0 
CFONT.tfOutPrecision = 0:CFONT.lfClipPrecision = 0:CFONT.If Quality = 0 
CFON I'.IfPitchAndFamily = 0:Ci ; ONTJfCharSet = 128 'B^II 
CFON I'.lfFaceName = "MS WW + Chr$(0) 
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